home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / PureBasic / PureBasic_Update_2.33 / Install < prev    next >
Encoding:
Text File  |  2001-06-11  |  7.7 KB  |  179 lines
  1.  
  2. ;*
  3. ;* Install/Update script for PureBasic V2.00
  4. ;*
  5. ;* Done by 'AlphaSND'
  6. ;*
  7.  
  8.  
  9. ;*** Autodetection for langage !
  10.  
  11. (if (> (exists ("env:Language")) 0)
  12.   (set Langage_AmigaOS (getenv "Language"))
  13. )
  14.  
  15. (set #Langage 0)
  16.  
  17. (if (= "english"  Langage_AmigaOS) (set #Langage 0))
  18. (if (= "français" Langage_AmigaOS) (set #Langage 1))
  19. (if (= "deutsch"  Langage_AmigaOS) (set #Langage 2))
  20.  
  21. (if (= #Langage 0)
  22.   (
  23.     (set #WelcomePrompt "\nWelcome !\nThis will update PureBasic 1.xx to 2.00.\n\nPlease choose the langage for PureBasic:")
  24.   )
  25. )
  26.  
  27.  
  28. ;*** Francais ***
  29.  
  30. (if (= #Langage 1)
  31.   (
  32.     (set #WelcomePrompt "\nBienvenue !\nCette installation va mettre à jour PureBasic V1.xx vers V2.00.\n\nChoisissez la langue qui sera utilisée par PureBasic:")
  33.   )
  34. )
  35.  
  36.  
  37. ;*** Deutsch ***
  38.  
  39.  
  40. (if (= #Langage 2)
  41.   (
  42.     (set #WelcomePrompt "\nWelcome !\nThis will update PureBasic 1.xx to 2.00.\n\nPlease choose the langage for PureBasic:")
  43.   )
  44. )
  45.  
  46.  
  47. (complete 0)
  48.  
  49. (set #Langage
  50.   (askchoice
  51.     (prompt #WelcomePrompt)
  52.     (Help "")
  53.     (choices
  54.       "English"
  55.       "Francais"
  56.       "Deutsch"
  57.     )
  58.     (default #Langage)
  59.   )
  60. )
  61.  
  62.  
  63. ;*** English ***
  64.  
  65. (if (= #Langage 0)
  66.   (
  67.     (set #FBDirPrompt "Please indicate where PureBasic is actually installed (including the 'PureBasic' drawer).\nIt should be 'PureBasic:'.")
  68.     (set #FBDirHelp "")
  69.     (set #FBLangSel "Select the languages to install with PureBasic.")
  70.     (set #FBIcon "Select your icons type")
  71.   )
  72. )
  73.  
  74.  
  75. ;*** Francais ***
  76.  
  77. (if (= #Langage 1)
  78.   (
  79.     (set #FBDirPrompt "Veuillez indiquez où se trouve actuellement PureBasic (en incluant le répertoire 'PureBasic').\nEn principe, c'est 'PureBasic:'.")
  80.     (set #FBDirHelp "")
  81.     (set #FBLangSel "Choisissez quel langage vous voulez avoir pour PureBasic")
  82.     (set #FBIcon "Choisissez votre type d'icone")
  83.   )
  84. )
  85.  
  86.  
  87. ;*** Deutsch ***
  88.  
  89. (if (= #Langage 2)
  90.   (
  91.     (set #FBDirPrompt "Wo möchten Sie PureBasic installieren?\nEin Verzeichnis genannt 'PureBasic' wird erstellt.")
  92.     (set #FBDirHelp "")
  93.     (set #FBLangSel "Wählen Sie die Sprachen, die mit PureBasic installiert werden sollen.")
  94.     (set #FBIcon "Wählen Sie den gewünschten Icon-Typ.")
  95.   )
  96. )
  97.  
  98. ;*** Directory Select ***
  99.  
  100. (complete 5)
  101.  
  102. (set DestDir
  103.   (askdir
  104.     (prompt   #FBDirPrompt)
  105.     (help     #FBDirHelp)
  106.     (default "PureBasic:")
  107.   )
  108. )
  109.  
  110. (set DestDir (expandpath DestDir))
  111. (set @default-dest (tackon DestDir ""))
  112.  
  113. (set PureBasic_Dir @default-dest)
  114.  
  115. ;*** Copy all public files ***
  116.  
  117. (complete 20)
  118.  
  119. (copyfiles
  120.   (source   "PureBasic/")
  121.   (dest      PureBasic_Dir)
  122.   (pattern  "#?")
  123.   (optional "nofail")
  124.   (infos)
  125. )
  126.  
  127.  
  128. ;*** Update private encrypted files
  129.  
  130. (complete 40)
  131.  
  132. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/PBCompiler.delta \"" PureBasic_Dir "Compilers/PBCompiler\""))
  133. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" PureBasic/Compilers/Data \"" PureBasic_Dir "Compilers/Data\""))
  134.  
  135. (complete 70)
  136.  
  137. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/2DDrawing.delta \"" PureBasic_Dir "PureLibraries/2DDrawing\""))
  138. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Amiga.delta \"" PureBasic_Dir "PureLibraries/Amiga\""))
  139. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/AmigaSprite.delta \"" PureBasic_Dir "PureLibraries/AmigaSprite\""))
  140. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/App.delta \"" PureBasic_Dir "PureLibraries/App\""))
  141. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Audio.delta \"" PureBasic_Dir "PureLibraries/Audio\""))
  142. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/BitMap.delta \"" PureBasic_Dir "PureLibraries/BitMap\""))
  143. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Chunky.delta \"" PureBasic_Dir "PureLibraries/Chunky\""))
  144. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Clipboard.delta \"" PureBasic_Dir "PureLibraries/Clipboard\""))
  145. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Commodity.delta \"" PureBasic_Dir "PureLibraries/Commodity\""))
  146. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/File.delta \"" PureBasic_Dir "PureLibraries/File\""))
  147. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/FileSystem.delta \"" PureBasic_Dir "PureLibraries/FileSystem\""))
  148. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Font.delta \"" PureBasic_Dir "PureLibraries/Font\""))
  149. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Gadget.delta \"" PureBasic_Dir "PureLibraries/Gadget\""))
  150. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Joypad.delta \"" PureBasic_Dir "PureLibraries/Joypad\""))
  151. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/LinkedList.delta \"" PureBasic_Dir "PureLibraries/LinkedList\""))
  152. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/MemoryBank.delta \"" PureBasic_Dir "PureLibraries/MemoryBank\""))
  153. (complete 80)
  154. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Menu.delta \"" PureBasic_Dir "PureLibraries/Menu\""))
  155. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Misc.delta \"" PureBasic_Dir "PureLibraries/Misc\""))
  156. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Network.delta \"" PureBasic_Dir "PureLibraries/Network\""))
  157. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/OS.delta \"" PureBasic_Dir "PureLibraries/OS\""))
  158. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Palette.delta \"" PureBasic_Dir "PureLibraries/Palette\""))
  159. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Picture.delta \"" PureBasic_Dir "PureLibraries/Picture\""))
  160. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Picasso96.delta \"" PureBasic_Dir "PureLibraries/Picasso96\""))
  161. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/PopupModule.delta \"" PureBasic_Dir "PureLibraries/PopupMenu\""))
  162. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/PTModule.delta \"" PureBasic_Dir "PureLibraries/PTModule\""))
  163. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Rainbow.delta \"" PureBasic_Dir "PureLibraries/Rainbow\""))
  164. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Requester.delta \"" PureBasic_Dir "PureLibraries/Requester\""))
  165. (complete 90)
  166. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Screen.delta \"" PureBasic_Dir "PureLibraries/Screen\""))
  167. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Sort.delta \"" PureBasic_Dir "PureLibraries/Sort\""))
  168. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Sound.delta \"" PureBasic_Dir "PureLibraries/Sound\""))
  169. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Sprite.delta \"" PureBasic_Dir "PureLibraries/Sprite\""))
  170. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/String.delta \"" PureBasic_Dir "PureLibraries/String\""))
  171. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/TagList.delta \"" PureBasic_Dir "PureLibraries/TagList\""))
  172. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Timer.delta \"" PureBasic_Dir "PureLibraries/Timer\""))
  173. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/ToolType.delta \"" PureBasic_Dir "PureLibraries/ToolType\""))
  174. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/WbStartup.delta \"" PureBasic_Dir "PureLibraries/WbStartup\""))
  175. (run (cat "PurePatcher \"" PureBasic_Dir "PureLibraries/Font\" DeltaFiles/Window.delta \"" PureBasic_Dir "PureLibraries/Window\""))
  176.  
  177. (complete 100)
  178.  
  179.